(set! geometry-lattice (make lattice (size 350 359 no-size)))


for x = 1 to xSize
	for y = 1 to ySize
(set! geometry (list
                (make block (center x y) (size 1 1 infinity)
                      (material (make dielectric (epsilon grating(x,y)))))))
	end
end

